home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group3 / OCXMSGF.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-08  |  6.5 KB  |  226 lines
  1. VERSION 4.00
  2. Begin VB.Form MsgForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Message Form"
  6.    ClientHeight    =   4125
  7.    ClientLeft      =   2055
  8.    ClientTop       =   3345
  9.    ClientWidth     =   6105
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   4500
  20.    Left            =   2010
  21.    LinkTopic       =   "Form1"
  22.    MDIChild        =   -1  'True
  23.    ScaleHeight     =   4125
  24.    ScaleWidth      =   6105
  25.    Top             =   3015
  26.    Width           =   6195
  27.    Begin VB.PictureBox Picture1 
  28.       BackColor       =   &H00C0C0C0&
  29.       Height          =   615
  30.       Left            =   -120
  31.       ScaleHeight     =   585
  32.       ScaleWidth      =   6225
  33.       TabIndex        =   12
  34.       Top             =   0
  35.       Width           =   6255
  36.       Begin VB.CommandButton BtnSend 
  37.          Caption         =   "Send"
  38.          Height          =   375
  39.          Left            =   4305
  40.          TabIndex        =   16
  41.          Top             =   120
  42.          Width           =   1125
  43.       End
  44.       Begin VB.CommandButton BtnForward 
  45.          Caption         =   "Forward"
  46.          Height          =   375
  47.          Left            =   2880
  48.          TabIndex        =   15
  49.          Top             =   120
  50.          Width           =   1155
  51.       End
  52.       Begin VB.CommandButton btnReply 
  53.          Caption         =   "Reply"
  54.          Height          =   375
  55.          Left            =   1470
  56.          TabIndex        =   14
  57.          Top             =   120
  58.          Width           =   1170
  59.       End
  60.       Begin VB.CommandButton BtnHide 
  61.          Caption         =   "Hide Msg"
  62.          Height          =   375
  63.          Left            =   120
  64.          TabIndex        =   13
  65.          Top             =   120
  66.          Width           =   1125
  67.       End
  68.    End
  69.    Begin VB.ComboBox szFileList 
  70.       Height          =   315
  71.       Left            =   1320
  72.       TabIndex        =   11
  73.       Top             =   2775
  74.       Width           =   1935
  75.    End
  76.    Begin VB.TextBox szOriginator 
  77.       Height          =   375
  78.       Left            =   4440
  79.       TabIndex        =   10
  80.       Top             =   2760
  81.       Width           =   1575
  82.    End
  83.    Begin VB.TextBox szMsgID 
  84.       Height          =   495
  85.       Left            =   1320
  86.       TabIndex        =   7
  87.       Top             =   3240
  88.       Width           =   4695
  89.    End
  90.    Begin VB.TextBox szTime 
  91.       Height          =   375
  92.       Left            =   1200
  93.       TabIndex        =   6
  94.       Top             =   2280
  95.       Width           =   4815
  96.    End
  97.    Begin VB.TextBox szNoteText 
  98.       Height          =   855
  99.       Left            =   1200
  100.       MultiLine       =   -1  'True
  101.       TabIndex        =   3
  102.       Top             =   1320
  103.       Width           =   4815
  104.    End
  105.    Begin VB.TextBox szSubject 
  106.       Height          =   375
  107.       Left            =   1200
  108.       TabIndex        =   1
  109.       Top             =   840
  110.       Width           =   4815
  111.    End
  112.    Begin Mailx16Lib.MFile MFile1 
  113.       Left            =   120
  114.       Top             =   3600
  115.       _Version        =   65542
  116.       _ExtentX        =   900
  117.       _ExtentY        =   900
  118.       _StockProps     =   0
  119.       BindString      =   "MMsg1"
  120.    End
  121.    Begin Mailx16Lib.MReci MReci1 
  122.       Left            =   720
  123.       Top             =   3600
  124.       _Version        =   65542
  125.       _ExtentX        =   900
  126.       _ExtentY        =   900
  127.       _StockProps     =   0
  128.       BindString      =   "MMsg1"
  129.    End
  130.    Begin Mailx16Lib.MMsg MMsg1 
  131.       Left            =   480
  132.       Top             =   1680
  133.       _Version        =   65542
  134.       _ExtentX        =   900
  135.       _ExtentY        =   900
  136.       _StockProps     =   0
  137.       BindString      =   "FormTag1.MSess1"
  138.       FastFetch       =   -1  'True
  139.    End
  140.    Begin Mailx16Lib.MForm MForm1 
  141.       Left            =   3735
  142.       Top             =   3855
  143.       _Version        =   65542
  144.       _ExtentX        =   4048
  145.       _ExtentY        =   500
  146.       _StockProps     =   0
  147.       MXFormName      =   "FormTag3"
  148.    End
  149.    Begin VB.Label Label6 
  150.       BackColor       =   &H00C0C0C0&
  151.       Caption         =   "Attachments:"
  152.       Height          =   375
  153.       Left            =   120
  154.       TabIndex        =   9
  155.       Top             =   2760
  156.       Width           =   1215
  157.    End
  158.    Begin VB.Label Label5 
  159.       BackColor       =   &H00C0C0C0&
  160.       Caption         =   "Originator:"
  161.       Height          =   375
  162.       Left            =   3450
  163.       TabIndex        =   8
  164.       Top             =   2805
  165.       Width           =   960
  166.    End
  167.    Begin VB.Label Label4 
  168.       BackColor       =   &H00C0C0C0&
  169.       Caption         =   "Message ID:"
  170.       Height          =   375
  171.       Left            =   120
  172.       TabIndex        =   5
  173.       Top             =   3360
  174.       Width           =   1215
  175.    End
  176.    Begin VB.Label Label3 
  177.       BackColor       =   &H00C0C0C0&
  178.       Caption         =   "Time:"
  179.       Height          =   270
  180.       Left            =   150
  181.       TabIndex        =   4
  182.       Top             =   2355
  183.       Width           =   855
  184.    End
  185.    Begin VB.Label Label2 
  186.       BackColor       =   &H00C0C0C0&
  187.       Caption         =   "Note Text:"
  188.       Height          =   375
  189.       Left            =   120
  190.       TabIndex        =   2
  191.       Top             =   1320
  192.       Width           =   975
  193.    End
  194.    Begin VB.Label Label1 
  195.       BackColor       =   &H00C0C0C0&
  196.       Caption         =   "Subject:"
  197.       Height          =   375
  198.       Left            =   120
  199.       TabIndex        =   0
  200.       Top             =   840
  201.       Width           =   855
  202.    End
  203. Attribute VB_Name = "MsgForm"
  204. Attribute VB_Creatable = False
  205. Attribute VB_Exposed = False
  206. Private Sub BtnForward_Click()
  207.     MMsg1.NoteText = szNoteText
  208.     MMsg1.Action = ACTION_FORWARD
  209.     MMsg1.Action = ACTION_SENDMSG
  210. End Sub
  211. Private Sub BtnHide_Click()
  212.     Unload Me
  213. End Sub
  214. Private Sub btnReply_Click()
  215.     MMsg1.Action = ACTION_REPLY
  216.     MMsg1.Action = ACTION_SENDMSG
  217. End Sub
  218. Private Sub BtnSend_Click()
  219.     MMsg1.Subject = szSubject
  220.     MMsg1.NoteText = szNoteText
  221.     MMsg1.Action = ACTION_SENDMSG
  222.     If MMsg1.ErrorNum <> 0 Then
  223.         MsgBox "Error Sending Message"
  224.     End If
  225. End Sub
  226.